home *** CD-ROM | disk | FTP | other *** search
- Path: ratree.psu.ac.th!s3610165
- From: s3610165@maliwan.psu.ac.th (Sanon CHAOCHAIYAPORN)
- Newsgroups: comp.lang.c
- Subject: Problem...Problem!
- Date: 30 Jan 1996 11:43:54 GMT
- Organization: The Computer Center, Prince of Songkla University, THAILAND
- Message-ID: <4el09q$6im@ratree.psu.ac.th>
- NNTP-Posting-Host: maliwan.psu.ac.th
- X-Newsreader: TIN [version 1.2 PL2]
-
- Dear all
- This is a iteration method program. It use to find three values,
- a b and c. This program will finish when variables, t[], are less than or
- equal an error value, ERR. But my program has not been runing. Please,
- advice me...:~( Thanks for your attention.
-
- Source:
- #include<stdio.h>
- #include<conio.h>
-
- #define NUM 8
- #define ERR 1e-4
-
- float v[NUM];
- int i;
-
- main()
- {
- float e[NUM],t[NUM];
- int i;
- char pass;
-
- clrscr();
- for(i=0;i<NUM;i++)
- v[i] = e[i] = t[i] = 0;
- do
- {
- i = 0;
- v[i] = (v[i+1] + v[i+2]) / 8;
- v[i+1] = (v[i] + v[i+3] + 40) / 8;
- v[i+2] = (v[i] + v[i+3] + v[i+5] + 50) / 8;
- v[i+3] = (v[i+1] + v[i+2] + 110) / 8;
- v[i+4] = (v[i+5] + v[i+6] + 150) / 8;
- v[i+5] = (v[i+2] + v[i+4] + v[i+7] + 70) / 8;
- v[i+6] = (v[i+4] + v[i+7] + 200) / 8;
- v[i+7] = (v[i+5] + v[i+6] + 200) / 8;
- display();
- for(i=0;i<NUM;i++)
- t[i] = v[i] - e[i];
- for(i=0;i<NUM;i++)
- e[i] = v[i];
- }while((t[0] <= ERR) && (t[1] <= ERR) && (t[2] <= ERR) && (t[3] <= ERR) &&
- (t[4] <= ERR) && (t[5] <= ERR) && (t[6] <= ERR) && (t[7] <= ERR));
- printf("\na is %8.4f volt",v[1]);
- printf("\nb is %8.4f volt",v[2]);
- printf("\nc is %8.4f volt",v[4]);
- }
-
- display()
- {
- printf("%10.4f",v[i]);
- printf("%10.4f",v[i+1]);
- printf("%10.4f",v[i+2]);
- printf("%10.4f",v[i+3]);
- printf("%10.4f",v[i+4]);
- printf("%10.4f",v[i+5]);
- printf("%10.4f",v[i+6]);
- printf("%10.4f",v[i+7]);
- }
-
- --
- ----------------------------------------------------------------
- | | |
- | Sanon Chaochaiyaporn | Prince of Songkla University |
- | s3610165@maliwan.psu.ac.th | Hadyai, Thailand |
- | | |
- ----------------------------------------------------------------
-